From: Jason Rumney <jasonr@gnu.org>
Date: Thu, 14 Jun 2007 15:59:06 +0000 (+0000)
Subject: (Fget_internal_run_time) [WINDOWSNT]: Use w32_get_internal_run_time.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18372
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f74945c8153977f89bf88fd54ec56a5c70b0412d;p=emacs.git

(Fget_internal_run_time) [WINDOWSNT]: Use w32_get_internal_run_time.
---

diff --git a/src/editfns.c b/src/editfns.c
index aca3383943d..5fd40ed51c7 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -84,6 +84,11 @@ extern char **environ;
 
 extern size_t emacs_strftimeu P_ ((char *, size_t, const char *,
 				   const struct tm *, int));
+
+#ifdef WINDOWSNT
+extern Lisp_Object w32_get_internal_run_time ();
+#endif
+
 static int tm_diff P_ ((struct tm *, struct tm *));
 static void find_field P_ ((Lisp_Object, Lisp_Object, Lisp_Object, int *, Lisp_Object, int *));
 static void update_buffer_properties P_ ((int, int));
@@ -1483,9 +1488,13 @@ on systems that do not provide resolution finer than a second.  */)
   return list3 (make_number ((secs >> 16) & 0xffff),
 		make_number ((secs >> 0)  & 0xffff),
 		make_number (usecs));
-#else
+#else /* ! HAVE_GETRUSAGE  */
+#if WINDOWSNT
+  return w32_get_internal_run_time ();
+#else /* ! WINDOWSNT  */
   return Fcurrent_time ();
-#endif
+#endif /* WINDOWSNT  */
+#endif /* HAVE_GETRUSAGE  */
 }